home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / tritonrexx376.lha / TritonRexx / Rexx / Progress.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-16  |  2KB  |  75 lines
  1. /* Progress.rexx */
  2.  
  3. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO
  4.    IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO
  5.       SAY 'Kann die <tritonrexx.library> nicht öffnen!'
  6.       EXIT(10)
  7.    END
  8. END
  9.  
  10. IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO
  11.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  12.       SAY 'Kann die <rexxsupport.library> nicht öffnen!'
  13.       EXIT(10)
  14.    END
  15. END
  16.  
  17. windowtags =   WindowID(1),
  18.                WindowTitle('Progress'),
  19.                   'HorizGroupA',
  20.                      'Space',
  21.                      'VertGroupA',
  22.                         'Space',
  23.                         NamedSeparator('Prozent fertig'),
  24.                         'Space',
  25.                         'HorizGroupSA',
  26.                            TextN("0%"),
  27.                            'SpaceB',
  28.                            TextN("25%"),
  29.                            'SpaceB',
  30.                            TextN("50%"),
  31.                            'SpaceB',
  32.                            TextN("75%"),
  33.                            'SpaceB',
  34.                            TextN("100%"),
  35.                         'EndGroup',
  36.                         Progress(100,0,7),
  37.                         'Space',
  38.                      'EndGroup',
  39.                      'Space',
  40.                   'EndGroup',
  41.                'EndProject'
  42.  
  43. app = TR_CREATEAPP('TRCA_Name Progress')
  44.  
  45. IF app ~= '00000000'x THEN DO
  46.  
  47.    window = TR_OPENPROJECT(app,windowtags)
  48.  
  49.    IF window ~= '00000000'x THEN DO
  50.       ende = 0
  51.       prozent = 0
  52.  
  53.       DO WHILE ende ~= 1
  54.          DELAY(10)
  55.  
  56.          IF prozent < 100 THEN DO
  57.             prozent = prozent+1
  58.  
  59.             CALL TR_SETATTRIBUTE(window,7,'TRAT_Value',prozent)
  60.          END
  61.  
  62.          DO WHILE TR_HANDLEMSG(app,'event')
  63.             IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
  64.                ende = 1
  65.          END
  66.       END
  67.  
  68.       CALL TR_CLOSEPROJECT(window)
  69.    END
  70.  
  71.    CALL TR_DELETEAPP(app)
  72. END
  73.  
  74. EXIT(0)
  75.